home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Resources.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1.1 KB  |  49 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {Created: Sunday, January 6, 1991 at 11:05 PM}
  5. {    Resources.p}
  6. {    Pascal Interface to the Macintosh Libraries}
  7. {}
  8. {        Copyright Apple Computer, Inc.    1985-1990}
  9. {        All rights reserved}
  10. {}
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18. unit Resources;
  19. interface
  20.     uses
  21.         Types, OSUtils, Files;
  22.  
  23.     function FSpOpenResFile (spec: FSSpec; permission: SignedByte): INTEGER;
  24.     inline
  25.         $303C, $000D, $AA52;
  26.     procedure FSpCreateResFile (spec: FSSpec; creator: OSType; fileType: OSType; scriptTag: ScriptCode);
  27.     inline
  28.         $303C, $000E, $AA52;
  29.  
  30. {  partial resource calls  }
  31.     procedure ReadPartialResource (theResource: Handle; offset: LONGINT; buffer: univ Ptr; count: LONGINT);
  32.     inline
  33.         $7001, $A822;
  34.     procedure WritePartialResource (theResource: Handle; offset: LONGINT; buffer: univ Ptr; count: LONGINT);
  35.     inline
  36.         $7002, $A822;
  37.     procedure SetResourceSize (theResource: Handle; newSize: LONGINT);
  38.     inline
  39.         $7003, $A822;
  40.  
  41.  
  42.  
  43.     { UsingResources }
  44.  
  45.  
  46. implementation
  47. end.
  48.  
  49.